1st Multimedia Mac Shareware/Multimedia Shareware CD-ROM - BetaCorp.iso/Businessƒ/TimeMgmt/AppointmentMaster™/stack_-1.xml

Extensible Markup Language | 1992-08-11 | 9.3 KB | 22 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>2</cardCount>
    <cardID>3049</cardID>
    <listID>4752</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>on closeStack
global whosThere
put "Have Yourself a SUPER GOOD DAY" && whosThere && "!" into message box
doMenu "Compact Stack"
RemShow Meo
show menubar
hide message box
visual effect zoom out
end closeStack



on update theDate
global whosThere
ask "What is your name, Please?" with field id 26
put it into field id 26
put it into whosThere
put the long date into field id 5 of card id 3049
theSchedule schedule
end update



on theSchedule schedule
set cursor to 4
put empty into field id 6
put empty into field id 7
put empty into field id 8
put empty into field id 9
put empty into field id 10
put empty into field id 11
put empty into field id 12
put empty into field id 13
put empty into field id 14
put empty into field id 15
put empty into field id 16
put empty into field id 17
put empty into field id 30   --field "Links" is a hidden field
get field id 5
convert it to seconds
put it into thisDay
put 1 into lineNumber
repeat with x = 2 to (the number of cards)
get (field id 2 of card x)  --field "Date"
if it is empty then next repeat
convert it to seconds
if it = thisDay then
put (the id of card x) into line lineNumber of field "Links"
add 1 to lineNumber
get field id 47 of card x  --field "My Name"
if it = field id 26 of card id 3049 then
get field id 43 of card x  --field "Appointment Time"
put it into apptTime
get field id 1 of card x   --field "ClientName"
put it into temp2
put the number of chars of temp2 into countChar
put 37 into maxChar
subtract countChar from maxChar
get field id 6 of card x  --field "ApptDetails"
put it into temp3
put "," after char maxChar of temp3
put empty into item 2 of temp3
put empty into last char of temp3
get apptTime  --a variable holding the appointment time.
if it ≥ 0900 and it ≤ 0914 or it ≥ 900 and it ≤ 914¬
or it = 9 then
put temp2 && "—" & temp3 into line 1 of field id 6
else
if it ≥ 0915 and it ≤ 0929 or it ≥ 915 and it ≤ 929 then
put temp2 && "—" & temp3 into line 2 of field id 6
else
if it ≥ 0930 and it ≤ 0944 or it ≥ 930 and it ≤ 944 then
put temp2 && "—" & temp3 into line 3 of field id 6
else
if it ≥ 0945 and it ≤ 0959 or it ≥ 945 and it ≤ 959 then
put temp2 && "—" & temp3 into line 4 of field id 6
else
if it ≥ 1000 and it ≤ 1014 or it = 10 then
put temp2 && "—" & temp3 into line 1 of field id 7
else
if it ≥ 1015 and it ≤ 1029 then
put temp2 && "—" & temp3 into line 2 of field id 7
else
if it ≥ 1030 and it ≤ 1044 then
put temp2 && "—" & temp3 into line 3 of field id 7
else
if it ≥ 1045 and it ≤ 1059 then
put temp2 && "—" & temp3 into line 4 of field id 7
else
if it ≥ 1100 and it ≤ 1114 or it = 11 then
put temp2 && "—" & temp3 into line 1 of field id 8
else
if it ≥ 1115 and it ≤ 1129 then
put temp2 && "—" & temp3 into line 2 of field id 8
else
if it ≥ 1130 and it ≤ 1144 then
put temp2 && "—" & temp3 into line 3 of field id 8
else
if it ≥ 1145 and it ≤ 1159 then
put temp2 && "—" & temp3 into line 4 of field id 8
else
if it ≥ 1200 and it ≤ 1214 or it = 12 then
put temp2 && "—" & temp3 into line 1 of field id 9
else
if it ≥ 1215 and it ≤ 1229 then
put temp2 && "—" & temp3 into line 2 of field id 9
else
if it ≥ 1230 and it ≤ 1244 then
put temp2 && "—" & temp3 into line 3 of field id 9
else
if it ≥ 1245 and it ≤ 1259 then
put temp2 && "—" & temp3 into line 4 of field id 9
else
if it ≥ 100 and it ≤ 114 or it ≥ 1300 and it ≤ 1314 or it = 1 then
put temp2 && "—" & temp3 into line 1 of field id 10
else
if it ≥ 115 and it ≤ 129 or it ≥ 1315 and it ≤ 1329 then
put temp2 && "—" & temp3 into line 2 of field id 10
else
if it ≥ 130 and it ≤ 144 or it ≥ 1330 and it ≤ 1344 then
put temp2 && "—" & temp3 into line 3 of field id 10
else
if it ≥ 145 and it ≤ 159 or it ≥ 1345 and it ≤ 1359 then
put temp2 && "—" & temp3 into line 4 of field id 10
else
if it ≥ 200 and it ≤ 214 or it ≥ 1400 and it ≤ 1414 or it = 2 then
put temp2 && "—" & temp3 into line 1 of field id 11
else
if it ≥ 215 and it ≤ 229 or it ≥ 1415 and it ≤ 1429 then
put temp2 && "—" & temp3 into line 2 of field id 11
else
if it ≥ 230 and it ≤ 244 or it ≥ 1430 and it ≤ 1444 then
put temp2 && "—" & temp3 into line 3 of field id 11
else
if it ≥ 245 and it ≤ 259 or it ≥ 1445 and it ≤ 1459 then
put temp2 && "—" & temp3 into line 4 of field id 11
else
if it ≥ 300 and it ≤ 314 or it ≥ 1500 and it ≤ 1514 or it = 3 then
put temp2 && "—" & temp3 into line 1 of field id 12
else
if it ≥ 315 and it ≤ 329 or it ≥ 1515 and it ≤ 1529 then
put temp2 && "—" & temp3 into line 2 of field id 12
else
if it ≥ 330 and it ≤ 344 or it ≥ 1530 and it ≤ 1544 then
put temp2 && "—" & temp3 into line 3 of field id 12
else
if it ≥ 345 and it ≤ 359 or it ≥ 1545 and it ≤ 1559 then
put temp2 && "—" & temp3 into line 4 of field id 12
else
if it ≥ 400 and it ≤ 414 or it ≥ 1600 and it ≤ 1614 or it = 4 then
put temp2 && "—" & temp3 into line 1 of field id 13
else
if it ≥ 415 and it ≤ 429 or it ≥ 1615 and it ≤ 1629 then
put temp2 && "—" & temp3 into line 2 of field id 13
else
if it ≥ 430 and it ≤ 444 or it ≥ 1630 and it ≤ 1644 then
put temp2 && "—" & temp3 into line 2 of field id 13
else
if it ≥ 445 and it ≤ 459 or it ≥ 1645 and it ≤ 1659 then
put temp2 && "—" & temp3 into line 4 of field id 13
else
if it ≥ 500 and it ≤ 514 or it ≥ 1700 and it ≤ 1714 or it = 5 then
put temp2 && "—" & temp3 into line 1 of field id 14
else
if it ≥ 515 and it ≤ 529 or it ≥ 1715 and it ≤ 1729 then
put temp2 && "—" & temp3 into line 2 of field id 14
else
if it ≥ 530 and it ≤ 544 or it ≥ 1730 and it ≤ 1744 then
put temp2 && "—" & temp3 into line 3 of field id 14
else
if it ≥ 545 and it ≤ 559 or it ≥ 1745 and it ≤ 1759 then
put temp2 && "—" & temp3 into line 4 of field id 14
else
if it ≥ 600 and it ≤ 614 or it ≥ 1800 and it ≤ 1814 or it = 6 then
put temp2 && "—" & temp3 into line 1 of field id 15
else
if it ≥ 615 and it ≤ 629 or it ≥ 1815 and it ≤ 1829 then
put temp2 && "—" & temp3 into line 2 of field id 15
else
if it ≥ 630 and it ≤ 644 or it ≥ 1830 and it ≤ 1844 then
put temp2 && "—" & temp3 into line 3 of field id 15
else
if it ≥ 645 and it ≤ 659 or it ≥ 1845 and it ≤ 1859 then
put temp2 && "—" & temp3 into line 4 of field id 15
else
if it ≥ 700 and it ≤ 714 or it ≥ 1900 and it ≤ 1914 or it = 7 then
put temp2 && "—" & temp3 into line 1 of field id 16
else
if it ≥ 715 and it ≤ 729 or it ≥ 1915 and it ≤ 1929 then
put temp2 && "—" & temp3 into line 2 of field id 16
else
if it ≥ 730 and it ≤ 744 or it ≥ 1930 and it ≤ 1944 then
put temp2 && "—" & temp3 into line 3 of field id 16
else
if it ≥ 745 and it ≤ 759 or it ≥ 1945 and it ≤ 1959 then
put temp2 &&"—" & temp3 into line 4 of field id 16
else
if it ≥ 800 and it ≤ 814 or it ≥ 2000 and it ≤ 2014 or it = 8 then
put temp2 && "—" & temp3 into line 1 of field id 17
else
if it ≥ 815 and it ≤ 829 or it ≥ 2015 and it ≤ 2029 then
put temp2 && "—" & temp3 into line 2 of field id 17
else
if it ≥ 830 and it ≤ 844 or it ≥ 2030 and it ≤ 2044 then
put temp2 && "—" & temp3 into line 3 of field id 17
else
if it ≥ 845 and it ≤ 859 or it ≥ 2045 and it ≤ 2059 then
put temp2 && "—" & temp3 into line 4 of field id 17
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end repeat
end theSchedule



on RemShow Meo
get the date
convert it to dateItems
if item 3 of it = 1 or item 3 of it =15 then
beep 2
put "Paid your SHAREWARE FEE yet ? If So—THANKS! If No — PLEASE DO"
wait 5 seconds
play boing
hide message box
end if
end RemShow



on openStack
visual zoom in
hide menubar
hide message box
show field id 25  --Copyright field-DO NOT REMOVE
update theDate
RemShow Meo
end openStack






</script>
    <background id="2621" file="background_2621.xml" name="Schedule" />
    <background id="3622" file="background_3622.xml" name="AppointmentCard" />
    <card id="3049" file="card_3049.xml" marked="false" name="ApptSchedule" owner="2621" />
    <card id="2289" file="card_2289.xml" marked="false" name="FirstCardOfApptCards" owner="3622" />
</stack>